# TODO: Add comment
# 
# Author: Arek
###############################################################################

Rprof(NULL)
Rprof(filename = "Rprof.out", interval = 0.02)
mygraph<-sort.generateGraph(c(6,1,3,7,5,2,4))
## cat(mygraph$print())
print("stworzylem graf")
sorting<-astar.search(mygraph)
print("posortowalem go")
print(sorting)
summaryRprof(filename = "Rprof.out")



